*<(GPL, copyleft, https://www.gnu.org/licenses/gpl-3.0.de.html)>
<This code generates descriptive statistics of sample characteristics and of conducted questionnaires as well as intercorrelations between the subscales of these questionnaires and the FEQ-GR.>
Copyright (C) <2021>  <Zehtner, R. I.; Bäurle, C. L. & Hermann, A.>
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

*This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

*You should have received a copy of the GNU General Public License
along with this program.  If not, see 
https://www.gnu.org/licenses/ <https://www.gnu.org/licenses/>

* Encoding: UTF-8.
**Study 2

*Demografische Daten
*Ausschluss von case 95, 367, 533 wg Kontrollitems => filter_k

filter by filter_k.
EXECUTE.

*Alter.
DESCRIPTIVES VARIABLES=DE01_01
  /STATISTICS=MEAN STDDEV MIN MAX.
EXECUTE.

*Geschlecht, Bildung.
FREQUENCIES VARIABLES=DE02 DE03
  /ORDER=ANALYSIS.
EXECUTE.

*-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.

*Variablen umkodieren: FEX: Item 2 & 5 & 6 & 10;  SS:Item 3 & 4 EKF: 1, 2, 3, 4, 10, 13, 14, 17 invertieren.

*RECODE SS01_03 SS01_04 (5=1) (4=2) (3=3) (2=4) (1=5) INTO SS01_03rec SS01_04rec.
*RECODE FX01_02 FX01_05 FX01_06 FX01_10 (9=1) (8=2) (7=3) (6=4) (5=5) (4=6) (3=7) (2=8) (1=9) INTO FX01_02rec FX01_05rec FX01_06rec FX01_10rec.
*RECODE EK01_01 EK01_02 EK01_03 EK01_04 EK01_10 EK01_13 EK01_14 EK01_17 EK02_01 EK02_02 EK02_03 EK02_04 EK02_10 EK02_13 EK02_14 EK02_17 
(5=1) (4=2) (3=3) (2=4) (1=5) INTO EK01_01rec EK01_02rec EK01_03rec EK01_04rec EK01_10rec EK01_13rec EK01_14rec EK01_17rec EK02_01rec EK02_02rec 
EK02_03rec EK02_04rec EK02_10rec EK02_13rec EK02_14rec EK02_17rec.
*EXECUTE.


*-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.

*FEQ-GR
*3Skalen:
*Positive Expressivität (18 Items): 1, 2, 3, 6, 16,  17, 18, 21, 22, 23,26, 30, 31, 33, 35, 38, 39, 40
***Item 13 wird gelöscht, weil Ladung zu klein
***Item 28 vorher gelöscht


COMPUTE FEQ_Pmean= (SUM (FF01_01, FF01_02, FF01_03, FF01_06, 
    FF01_16, FF01_17, FF01_18, FF01_21, FF01_22, 
    FF01_23, FF01_26, FF01_30, FF01_31, 
    FF01_33, FF01_35, FF01_38, FF01_39, FF01_40))/18.
EXECUTE.

VARIABLE LABELS FEQ_Pmean 'FEQ-GR pos. mean'.


*Negativ-submissiv: 7 Items (1 vorher gelöscht = Item 19, 2 bei CFA), nämlich 10, 32, 15, 08, 25,20, 14

COMPUTE FEQ_NSmean=MEAN(FF01_10, FF01_32, FF01_15, FF01_08, FF01_25, FF01_20, FF01_14).
EXECUTE.
VARIABLE LABELS FEQ_NSmean 'FEQ-GR neg.-subm. mean'.

*Negativ-dominant: 10 Items (4,9,12,36,11,05,27,7,24,37)

COMPUTE FEQ_NDmean=MEAN(FF01_04, FF01_09, FF01_12, FF01_36, FF01_11, FF01_05, 
FF01_27, FF01_07, FF01_24, FF01_37).
EXECUTE.
VARIABLE LABELS FEQ_NDmean 'FEQ-GR neg.-dominant mean'.


DESCRIPTIVES VARIABLES=FEQ_Pmean, FEQ_NDmean, FEQ_NSmean
  /STATISTICS=MEAN STDDEV MIN MAX.

*Reliabilität FEQ-GR.
*P.
RELIABILITY
 /VARIABLES=FF01_01, FF01_02, FF01_03, FF01_06, 
    FF01_16, FF01_17, FF01_18, FF01_21, FF01_22, 
    FF01_23, FF01_26, FF01_30, FF01_31, 
    FF01_33, FF01_35, FF01_38, FF01_39, FF01_40
 /SCALE('ALL VARIABLES') ALL
  /MODEL=ALPHA
EXECUTE.

*ND.
RELIABILITY
  /VARIABLES=FF01_04, FF01_09, FF01_12, FF01_36, FF01_11, FF01_05, FF01_27, FF01_07, FF01_24, FF01_37
  /SCALE('ALL VARIABLES') ALL
  /MODEL=ALPHA
EXECUTE.

*NS.
RELIABILITY
 /VARIABLES=FF01_10, FF01_32, FF01_15, FF01_08, FF01_25, FF01_20, FF01_14
 /SCALE('ALL VARIABLES') ALL
  /MODEL=ALPHA
EXECUTE.


*-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.
*FEX = ACT (own nonverbal expressiveness)
*Variablenberechnung FEX Gesamtsumme.
*RENAME VARIABLES FX01_01 = FEX_01.
*RENAME VARIABLES FX01_02rec = FEX_02rec.
*RENAME VARIABLES FX01_03  = FEX_03.
*RENAME VARIABLES FX01_04 = FEX_04.
*RENAME VARIABLES FX01_05rec = FEX_05rec.
*RENAME VARIABLES FX01_06rec = FEX_06rec.
*RENAME VARIABLES FX01_07 = FEX_07.
*RENAME VARIABLES FX01_08 = FEX_08.
*RENAME VARIABLES FX01_09 = FEX_09.
*RENAME VARIABLES FX01_10rec = FEX_10rec.
*RENAME VARIABLES FX01_11 = FEX_11.
*RENAME VARIABLES FX01_12 = FEX_12.
*RENAME VARIABLES FX01_13 = FEX_13.
*EXECUTE.

COMPUTE FEX_sum= SUM (FEX_01,  FEX_02rec, FEX_03, FEX_04, FEX_05rec, FEX_06rec,  FEX_07, FEX_08, FEX_09, FEX_10rec, FEX_11, FEX_12, FEX_13).
EXECUTE.
VARIABLE LABELS FEX_sum 'Summe FEX'.

*Note, that the German and English version differ!
*Im Englischen werden andere Items umcodiert!

*Mittlerer Gesamtwert FEX.
DESCRIPTIVES VARIABLES=FEX_sum
  /STATISTICS=MEAN STDDEV MIN MAX.

*Reliabilität FEX.
RELIABILITY
  /VARIABLES=FEX_01, FEX_02rec, FEX_03, FEX_04, FEX_05rec, FEX_06rec, FEX_07, FEX_08, FEX_09, FEX_10rec, FEX_11, FEX_12, FEX_13
  /SCALE('ALL VARIABLES') ALL
  /MODEL=ALPHA
EXECUTE.

*-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.

*EKF.
*Variablenberechnung für Mittelwert EKF Vater.
COMPUTE EKF_V= MEAN (EK01_01rec, EK01_02rec, EK01_03rec, EK01_04rec, EK01_05, EK01_06, EK01_07, 
EK01_08, EK01_09, EK01_10rec, EK01_11, EK01_12, EK01_13rec, EK01_14rec, EK01_15, EK01_16, EK01_17rec).
EXECUTE.

VARIABLE LABELS EKF_V 'Mittelwert EKF Vater'.

*Verweigerungsitem rekodieren (-9=3).
RECODE EK05 (-9=3).
EXECUTE.

*Auswählen, wenn nicht Verweigerung für Vater vorliegt.
TEMPORARY.
SELECT IF EK05 NE 1.

*Mittelwert EKF Vater.
DESCRIPTIVES VARIABLES=EKF_V
  /STATISTICS=MEAN STDDEV MIN MAX.

*...................................................................................................................................................................................................
*Variablenberechnung für Mittelwert EKF Mutter.
COMPUTE EKF_M= MEAN (EK02_01rec, EK02_02rec, EK02_03rec, EK02_04rec, EK02_05, EK02_06, EK02_07, 
EK02_08, EK02_09, EK02_10rec, EK02_11, EK02_12, EK02_13rec, EK02_14rec, EK02_15, EK02_16, EK02_17rec).
EXECUTE.

VARIABLE LABELS EKF_M 'Mittelwert EKF Mutter'.

*Verweigerungsitem rekodieren (-9=3).
RECODE EK04 (-9=3).
EXECUTE.

*Auswählen, wenn nicht Verweigerung für Mutter vorliegt.
TEMPORARY.
SELECT IF EK04 NE 1.

*Mittelwert EKF Mutter.
DESCRIPTIVES VARIABLES=EKF_M
  /STATISTICS=MEAN STDDEV MIN MAX.


*Reliabilität EKF. Vater.
TEMPORARY.
SELECT IF EK05 NE 1.
RELIABILITY
  /VARIABLES=EK01_01rec, EK01_02rec, EK01_03rec, EK01_04rec, EK01_05, EK01_06, EK01_07, 
EK01_08, EK01_09, EK01_10rec, EK01_11, EK01_12, EK01_13rec, EK01_14rec, EK01_15, EK01_16, EK01_17rec
  /SCALE('ALL VARIABLES') ALL
  /MODEL=ALPHA.

*Mutter.
TEMPORARY.
SELECT IF EK04 NE 1.
RELIABILITY
  /VARIABLES=EK02_01rec, EK02_02rec, EK02_03rec, EK02_04rec, EK02_05, EK02_06, EK02_07, 
EK02_08, EK02_09, EK02_10rec, EK02_11, EK02_12, EK02_13rec, EK02_14rec, EK02_15, EK02_16, EK02_17rec
  /SCALE('ALL VARIABLES') ALL
  /MODEL=ALPHA.
EXECUTE.

*-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.

*FEE = QRPRB
*FEE: Umbenennung Items.
*RENAME VARIABLES (Y404_01=FEE_V01) (Y404_02=FEE_M01) (Y404_03=FEE_V02) (Y404_04=FEE_M02) (Y404_05=FEE_V03) 
(Y404_06=FEE_M03) (Y404_07=FEE_V04) (Y404_08=FEE_M04) (Y404_09=FEE_V05) (Y404_10=FEE_M05) (Y404_11=FEE_V06) 
(Y404_12=FEE_M06) (Y404_13=FEE_V07) (Y404_14=FEE_M07) (Y404_15=FEE_V08) (Y404_16=FEE_M08) (Y404_17=FEE_V09) 
(Y404_18=FEE_M09) (Y404_19=FEE_V10) (Y404_20=FEE_M10) (Y404_21=FEE_V11) (Y404_22=FEE_M11) (Y404_23=FEE_V12) 
(Y404_24=FEE_M12) (Y404_25=FEE_V13) (Y404_26=FEE_M13) (Y404_27=FEE_V14) (Y404_28=FEE_M14) (Y404_29=FEE_V15) 
(Y404_30=FEE_M15) (Y404_31=FEE_V16) (Y404_32=FEE_M16) (Y404_33=FEE_V17) (Y404_34=FEE_M17) (Y404_35=FEE_V18) 
(Y404_36=FEE_M18) (Y404_37=FEE_V19) (Y404_38=FEE_M19) (Y404_39=FEE_V20) (Y404_40=FEE_M20) (Y404_41=FEE_V21) 
(Y404_42=FEE_M21) (Y404_43=FEE_V22) (Y404_44=FEE_M22) (Y404_45=FEE_V23) (Y404_46=FEE_M23) (Y404_47=FEE_V24) (Y404_48=FEE_M24).
*EXECUTE.

*..............................................................................father.

*FEE:Vater.
*Skalenberechnung Vater.
*Ablehnung und Strafe: Item 1, 3, 6, 8, 16, 18, 20, 22.
COMPUTE ABL_STR_V=SUM (FEE_V01, FEE_V03, FEE_V06, FEE_V08, FEE_V16, FEE_V18, FEE_V20, FEE_V22).
EXECUTE.

VARIABLE LABELS ABL_STR_V 'Ablehnung und Strafe Vater Summenscore'.


*Emotionale Wärme: Item 2, 7, 9, 12, 14, 15, 17, 24.
COMPUTE EMO_WÄ_V=SUM (FEE_V02, FEE_V07, FEE_V09, FEE_V12, FEE_V14, FEE_V15, FEE_V17, FEE_V24).
EXECUTE.

VARIABLE LABELS EMO_WÄ_V 'Emotionale Wärme Vater Summenscore'.


*Kontrolle und Überbehütung: Item 4, 5, 10, 11, 13, 19, 21, 23.
COMPUTE KON_ÜB_V=SUM (FEE_V04, FEE_V05, FEE_V10, FEE_V11, FEE_V13, FEE_V19, FEE_V21, FEE_V23).
EXECUTE.

VARIABLE LABELS KON_ÜB_V 'Kontrolle und Überbehütung Vater Summenscore'.


*..............................................................................mother.
*FEE: Mutter.
*Skalenberechnung Mutter.
*Ablehnung und Strafe: Item 1, 3, 6, 8, 16, 18, 20, 22.
COMPUTE ABL_STR_M=SUM (FEE_M01, FEE_M03, FEE_M06, FEE_M08, FEE_M16, FEE_M18, FEE_M20, FEE_M22).
EXECUTE.

VARIABLE LABELS ABL_STR_M 'Ablehnung und Strafe Mutter Summenscore'.


*Emotionale Wärme: Item 2, 7, 9, 12, 14, 15, 17, 24.
COMPUTE EMO_WÄ_M=SUM (FEE_M02, FEE_M07, FEE_M09, FEE_M12, FEE_M14, FEE_M15, FEE_M17, FEE_M24).
EXECUTE.

VARIABLE LABELS EMO_WÄ_M 'Emotionale Wärme Mutter Summenscore'.

*Kontrolle und Überbehütung: Item 4, 5, 10, 11, 13, 19, 21, 23.
COMPUTE KON_ÜB_M=SUM (FEE_M04, FEE_M05, FEE_M10, FEE_M11, FEE_M13, FEE_M19, FEE_M21, FEE_M23).
EXECUTE.

VARIABLE LABELS KON_ÜB_M 'Kontrolle und Überbehütung Mutter Summenscore'.


*Rekodieren Verweigerungsitem des FEE -9=0 (0=  nicht beantwortet)

RECODE Y413 (-9=0).
EXECUTE.

*.............................................................................
*Berechnung Mittelwert Skalen Vater.
*Auswählen, wenn nicht Verweigerung für Vater vorliegt.
TEMPORARY.
SELECT IF Y413 NE 1.

*Mittelwert Skalen Vater.
DESCRIPTIVES VARIABLES=ABL_STR_V EMO_WÄ_V KON_ÜB_V
  /STATISTICS=MEAN STDDEV MIN MAX.

*Reliabilität Vater.
*Abweisung und Strafe.
TEMPORARY.
SELECT IF Y413 NE 1.

RELIABILITY
  /VARIABLES=FEE_M01, FEE_M03, FEE_M06, FEE_M08, FEE_M16, FEE_M18, FEE_M20, FEE_M22
  /SCALE('ALL VARIABLES') ALL
  /MODEL=ALPHA.

TEMPORARY.
SELECT IF Y413 NE 1.
*Emotionale Wärme: Item 2, 7, 9, 12, 14, 15, 17, 24.
RELIABILITY
  /VARIABLES=FEE_M02, FEE_M07, FEE_M09, FEE_M12, FEE_M14, FEE_M15, FEE_M17, FEE_M24
  /SCALE('ALL VARIABLES') ALL
  /MODEL=ALPHA.

TEMPORARY.
SELECT IF Y413 NE 1.
*Kontrolle und Überbehütung: Item 4, 5, 10, 11, 13, 19, 21, 23.
RELIABILITY
  /VARIABLES=FEE_M04, FEE_M05, FEE_M10, FEE_M11, FEE_M13, FEE_M19, FEE_M21, FEE_M23
  /SCALE('ALL VARIABLES') ALL
  /MODEL=ALPHA.

*.............................................................................
*Berechnung Mittelwert Skalen Mutter
*Auswählen, wenn nicht Verweigerung für Mutter vorliegt.
TEMPORARY.
SELECT IF Y413 NE 2.

*Mittelwert Skalen Mutter.
DESCRIPTIVES VARIABLES=ABL_STR_M EMO_WÄ_M KON_ÜB_M
  /STATISTICS=MEAN STDDEV MIN MAX.

*Reliabilität FEE.
*Mutter.
TEMPORARY.
SELECT IF Y413 NE 2.

*Strafe.
RELIABILITY
  /VARIABLES=FEE_M01, FEE_M03, FEE_M06, FEE_M08, FEE_M16, FEE_M18, FEE_M20, FEE_M22
  /SCALE('ALL VARIABLES') ALL
  /MODEL=ALPHA.

TEMPORARY.
SELECT IF Y413 NE 2.
*Emotionale Wärme: Item 2, 7, 9, 12, 14, 15, 17, 24.
RELIABILITY
  /VARIABLES=FEE_M02, FEE_M07, FEE_M09, FEE_M12, FEE_M14, FEE_M15, FEE_M17, FEE_M24
  /SCALE('ALL VARIABLES') ALL
  /MODEL=ALPHA.

TEMPORARY.
SELECT IF Y413 NE 2.
*Kontrolle und Überbehütung: Item 4, 5, 10, 11, 13, 19, 21, 23.
RELIABILITY
  /VARIABLES=FEE_M04, FEE_M05, FEE_M10, FEE_M11, FEE_M13, FEE_M19, FEE_M21, FEE_M23
  /SCALE('ALL VARIABLES') ALL
  /MODEL=ALPHA.



*-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.

*Skala Schüchternheit: Item 1, 3, 5, 6, 8, 9, 11, 13, 14; Item 5 ausgeschlossen siehe Czeschlik und Nürk.

COMPUTE SS_Shy= MEAN (SS01_01, SS01_03rec, SS01_06, SS01_08, SS01_09, SS01_11, SS01_13, SS01_14).
EXECUTE.
VARIABLE LABELS SS_Shy 'Skala Schüchternheit'.

*Mittelwerte gesamt Schüchternheit.
DESCRIPTIVES VARIABLES=SS_Shy
  /STATISTICS=MEAN STDDEV MIN MAX.
EXECUTE.

*Reliabilität SCHÜCHTERNHEIT.

RELIABILITY
  /VARIABLES=SS01_01, SS01_03rec, SS01_06, SS01_08, SS01_09, SS01_11, SS01_13, SS01_14
  /SCALE('ALL VARIABLES') ALL
  /MODEL=ALPHA.

*----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.

*KSE-G.
*Skala PQ+.
COMPUTE PQ=MEAN (KS01_02, KS01_04, KS01_06).
EXECUTE.

DESCRIPTIVES VARIABLES=PQ
  /STATISTICS=MEAN STDDEV MIN MAX.

RELIABILITY
  /VARIABLES=KS01_02, KS01_04, KS01_06
  /SCALE('ALL VARIABLES') ALL
  /MODEL=ALPHA.

*Skala NQ-.
COMPUTE NQ=MEAN (KS01_01, KS01_03, KS01_05).
EXECUTE.

DESCRIPTIVES VARIABLES=NQ
  /STATISTICS=MEAN STDDEV MIN MAX.

RELIABILITY
  /VARIABLES=KS01_01, KS01_03, KS01_05
  /SCALE('ALL VARIABLES') ALL
  /MODEL=ALPHA.



*------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.

*============================Korrelationen======================================

*------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.

*Ausschluss von case 95, 367, 533 wg Kontrollitems

filter off.
use all.
filter by filter_k.
EXECUTE.


*FEX=ACT.
CORRELATIONS
  /VARIABLES=FEQ_Pmean FEQ_NDmean FEQ_NSmean  FEX_sum
  /PRINT=TWOTAIL NOSIG
  /MISSING=PAIRWISE.

*------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.
*EKF.
*Korrelation mit Mutter Mean.

TEMPORARY.
SELECT IF EK04 NE 1.
CORRELATIONS
  /VARIABLES=FEQ_Pmean FEQ_NDmean FEQ_NSmean  EKF_M
  /PRINT=TWOTAIL NOSIG
  /MISSING=PAIRWISE.

*Korrelation mit Vater Mean.

TEMPORARY.
SELECT IF EK05 NE 1.
CORRELATIONS
  /VARIABLES=FEQ_Pmean FEQ_NDmean FEQ_NSmean  EKF_V
  /PRINT=TWOTAIL NOSIG
  /MISSING=PAIRWISE.


*------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.
*FEE=QRPRB.
*Auswählen, wenn nicht Verweigerung für Mutter vorliegt.
TEMPORARY.
SELECT IF Y413 NE 2.

*Korrelation mit FEE Mutter (Pearson).
CORRELATIONS
  /VARIABLES=FEQ_Pmean FEQ_NDmean FEQ_NSmean ABL_STR_M EMO_WÄ_M KON_ÜB_M
  /PRINT=TWOTAIL NOSIG
  /MISSING=PAIRWISE.

*Auswählen, wenn nicht Verweigerung für Vater vorliegt.
TEMPORARY.
SELECT IF Y413 NE 1.

*Korrelation mit FEE Vater (Pearson).
CORRELATIONS
  /VARIABLES=FEQ_Pmean FEQ_NDmean FEQ_NSmean ABL_STR_V EMO_WÄ_V KON_ÜB_V  FEQ_Pmean FEQ_NDmean FEQ_NSmean
  /PRINT=TWOTAIL NOSIG
  /MISSING=PAIRWISE.


*------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.

*Korrelation mit Skala zu Schüchternheit. (Shyness).

CORRELATIONS
  /VARIABLES=FEQ_Pmean FEQ_NDmean FEQ_NSmean  SS_Shy
  /PRINT=TWOTAIL NOSIG
  /MISSING=PAIRWISE.

*------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.
*Korrelation mit KSE-G Skalen.

CORRELATIONS
  /VARIABLES=FEQ_Pmean FEQ_NDmean FEQ_NSmean  PQ NQ
  /PRINT=TWOTAIL NOSIG
  /MISSING=PAIRWISE.


